source PAC.tcl

inherit DemoDrawP Presentation
method DemoDrawP constructor {control} {
	this inherited $control
	
	set this(window) [toplevel ._${className}] 
	wm title $this(window) "DemoDraw"
	wm protocol $this(window) WM_DELETE_WINDOW "$this(control) dispose"
	
	set this(canvas) [canvas $this(window).canvas -justify center]
	pack $this(canvas) -expand 1 -fill both
	
	 
}


method DemoDrawP show {} {
	$this(canvas) configure create line {10 10 90 90} -width 10
}

method DemoDrawP destructor {} {
   destroy $this(window)
}


# Demo --


inherit DemoDraw Control
method DemoDraw constructor {} {
   DemoP ${objName}_pres $objName
   this inherited "" "" ${objName}_pres
   $this(presentation) show 
   
}

method DemoDraw destructor {} {
   this inherited
}